home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / comms / other / facts2.7 / install < prev    next >
Text File  |  1999-06-14  |  2KB  |  99 lines
  1. ; $VER: FACTS2Install 1.1 (02.02.99)
  2.  
  3. (welcome)
  4.  
  5. (set @default-dest
  6.     (askdir
  7.         (prompt "Where would you like to install FACTS?")
  8.         (help "It is recommended that FACTS be running all the time, so "
  9.         "WBStartUp is the logical place.\n\n" @askdir-help)
  10.         (default "SYS:WBStartUp")
  11.     )
  12. )
  13.  
  14. (startup "RexxMast"
  15.     (prompt "FACTS REQUIRES ARexx to be active when it starts up.  "
  16.     "To do this, the RexxMast command should be executed in your "
  17.     "user-startup script.\n\nDoes this need adding? (if you are not "
  18.     "sure, it is safe to proceed with this anyway)")
  19.     (help @startup-help)
  20.     (command "RexxMast >NIL:")
  21.     (confirm)
  22. )
  23.  
  24. (set #already-installed (exists (tackon @default-dest "Facts.info")))
  25.  
  26. (if #already-installed
  27.     (
  28.         (copylib
  29.             (prompt "Please check the version of FACTS you are copying against "
  30.             "any which might already be installed.")
  31.             (help @copylib-help)
  32.             (source "Facts")
  33.             (dest @default-dest)
  34.             (optional "askuser" "force" "oknodelete")
  35.         )
  36.     )
  37.  
  38.     (
  39.         (copylib
  40.             (prompt "Please check the version of FACTS you are copying against "
  41.             "any which might already be installed.")
  42.             (help @copylib-help)
  43.             (source "Facts")
  44.             (dest @default-dest)
  45.             (infos)
  46.         )
  47.  
  48.         (tooltype
  49.             (prompt "Do you want FACTS to run silently in the background?\n\n"
  50.             "If you would prefer it to show the GUI on startup, please skip "
  51.             "this part.")
  52.             (help @tooltype-help)
  53.             (dest (tackon @default-dest "Facts"))
  54.             (settooltype "CXPOPUP" "NO")
  55.             (confirm)
  56.         )
  57.  
  58.     )
  59. )
  60.  
  61. (copyfiles
  62.     (prompt "Do you want to copy the documentation?")
  63.     (help @copyfiles-help)
  64.     (source "Facts.guide")
  65.     (infos)
  66.     (dest "HELP:English")
  67.     (optional "askuser" "force")
  68.     (confirm)
  69. )
  70.  
  71. (copylib
  72.     (prompt "Do you want to install the example ARexx script in REXX:?\n\n"
  73.     "This will allow you to set your clock by calling rx "
  74.     "REXX:correctclock.rexx at any time (subject to being on-line of "
  75.     "course)")
  76.     (help @copyfiles-help)
  77.     (source "correctclock.rexx")
  78.     (dest "REXX:")
  79.     (optional "askuser" "force")
  80.     (confirm)
  81. )
  82.  
  83. (working "Starting ARexx...")
  84.  
  85. (run "RexxMast >NIL:")
  86.  
  87. (rexx "install.rexx"
  88.     (prompt "I will now quit any old versions of FACTS, and "
  89.     "load the new one")
  90.     (help "Does what it says!  Needs ARexx to be running.")
  91. )
  92.  
  93. (set #time (getenv "T:TIME"))
  94.  
  95. (exit "Finished!\n\n\nThe current time is\n\n" #time
  96. "\n\n\nFACTS has been started, please ensure your timezone is set "
  97. "correctly and then save config." (quiet))
  98.  
  99.